home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #1 / utv1n1s1.d64 / shopping lister (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  9KB  |  247 lines
  1. 1 rem *** (c)1986 scott calamar
  2. 2 rem *** published by softdisk publishing, inc.
  3. 4 uptime=(8*4096)+4: dim pr$(40)
  4. 5 printchr$(14)chr$(8):poke53280,11:poke53281,15
  5. 6 print"[147]"spc(11)"[129][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  6. 10 printspc(11)"[151] [211]hopping [204]ister [146][149]"
  7. 11 printspc(11)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  8. 13 printspc(8)"(c)1986 by [211]cott [195]alamar"
  9. 14 print" [208]ublished by [211]oftdisk [208]ublishing, [201]nc.":gosub20000
  10. 15 printspc(10)"[201]t's shopping time!":printspc(15)"[129](ho-hum)":gosub20000
  11. 20 print"[211]imply by pressing [129]y[146] or [129]n[146] after each"
  12. 22 print"item on the screen, you can quickly"
  13. 25 print"print out your shopping list"
  14. 28 gosub20000
  15. 30 printspc(8)"[144][212]urn on your [195][194][205] printer":printspc(18)"and"
  16. 32 printspc(9)"[154][200]it any key[146] when ready"
  17. 34 getk$:ifk$=""then34
  18. 36 ifk$=" "then40
  19. 40 close4:open4,4
  20. 42 print#4,chr$(16)"24"chr$(17)chr$(14)"[211]hopping [204]ist"chr$(15)chr$(13)chr$(13)
  21. 50 gosub600
  22. 100 readd$:ifd$="end"then400
  23. 105 printspc(18-int(len(d$)/2))" "d$"? ":gosub610
  24. 150 geta$:ifa$=""then 150
  25. 152 ifa$="y"then200
  26. 153 ifa$="[133]"then400
  27. 154 ifa$="n"then50
  28. 155 ifa$<>"y"anda$<>"n"anda$<>"[133]"then150
  29. 200 gosub600
  30. 205 reade$:ife$="end"then370
  31. 210 printspc(18-int(len(e$)/2))" "e$"? ":gosub610
  32. 230 getb$:ifb$=""then230
  33. 235 ifb$="y"then300
  34. 240 ifb$="n"then200
  35. 245 ifb$="[133]"then370
  36. 250 ifb$<>"y"andb$<>"n"andb$<>"[133]"then230
  37. 300 gosub600
  38. 305 readf$:iff$="end"then380
  39. 310 printspc(18-int(len(f$)/2))" "f$"? ":gosub610
  40. 330 getc$:ifc$=""then330
  41. 335 ifc$="y"then350
  42. 340 ifc$="n"then300
  43. 345 ifc$="[133]"then380
  44. 348 ifc$<>"y"andc$<>"n"andc$<>"[133]"then330
  45. 350 printspc(11)"[145][145] [217]ou've selected: [146] ":printspc(15)"[144]1- "d$
  46. 351 printspc(15)"[144]2- "e$:printspc(15)"[144]3- "f$:printspc(12)"[195]orrect (y or n)"
  47. 352 getm$:ifm$=""then352
  48. 353 ifm$="y"then360
  49. 354 ifm$="n"thenprintspc(11)"[145][149][215]hich is incorrect?"
  50. 355 getn$:n=val(n$):ifn$=""then355
  51. 356 ifn<>1thenifn<>2thenifn<>3then352
  52. 357 ifn=1thend1$=d$:gosub365:print#4,chr$(17)e$chr$(16)"30"f$:goto50
  53. 358 ifn=2thend1$=e$:gosub365:print#4,chr$(17)d$chr$(16)"30"f$:goto50
  54. 359 ifn=3thend1$=f$:gosub365:print#4,chr$(17)d$chr$(16)"30"e$:goto50
  55. 360 print#4,chr$(17)d$chr$(16)"30"e$chr$(16)"60"f$:goto50
  56. 365 printspc(20-int((len(d1$)+12)/2))""d1$"[144] was deleted":return
  57. 370 print#4,chr$(17)d$:goto400
  58. 380 print#4,chr$(17)d$chr$(16)"30"e$:goto400
  59. 400 print"[147][144][196]o you need anything not listed?":printspc(15)"< y or n >"
  60. 405 getg$:ifg$=""then405
  61. 410 ifg$="n"then430
  62. 415 ifg$="y"thenprintspc(4)"     [212]ype in what you need     "
  63. 416 printspc(4)"  <[195][210]> exits after last entry  "
  64. 420 gosub 2000: rem *** get items ***
  65. 422 for x=1tox1
  66. 424 print#4,chr$(17)pr$(x)
  67. 426 next
  68. 430 print"[147]"spc(9)"  [215]ould you  like to  "
  69. 432 printspc(9)"  list your dinners?  "
  70. 433 printspc(15)"[144]< y / n >"
  71. 434 getm$:ifm$=""then434
  72. 435 ifm$="n"then462
  73. 436 ifm$="y"then440
  74. 438 ifm$<>"y"andm$<>"n"then460
  75. 440 print#4,chr$(17)chr$(14)chr$(13)"[196]inners:"chr$(15)
  76. 441 printspc(14)" [200]ow many? "
  77. 442 get n$: if n$="" then 442
  78. 443 if val(n$)=0 then462
  79. 444 forl=1toval(n$):print"[147]"spc(11)"[144] [212]ype in dinner:[160]"
  80. 445 gosub 4000: rem *** get dinner ***
  81. 446 if o$="" then l=val(n$): goto 461
  82. 447 print#4,chr$(17)l"- "o$:printspc(9)"[129] [211]pecial ingredients? "
  83. 448 printspc(16)"(y[144][146] or [129]n[144][146])"
  84. 449 getq$:ifq$=""then449
  85. 450 ifq$<>"y"then461
  86. 451 print"[147]"spc(9)" [144] [211]pecial [201]ngredients  "
  87. 452 print spc(20-int((len(o$)+17)/2))" [144] for a "o$" dinner  [144]"
  88. 453 gosub 5000: rem *** get ingredients ***
  89. 458 printspc(6)"[146][129] [205]ore ingredients? < y / n >"
  90. 459 get t$: if (t$<>"n") and (t$<>"y") then 459
  91. 460 if t$="y" then print"": z=17: gosub 2300: print"[144]": goto 453
  92. 461 nextl
  93. 462 print"[147]"spc(11)"[144] [198]orget anything? "
  94. 463 printspc(10)"[208]ressing [144]r[146] will take"
  95. 464 printspc(10)"you back to the list"
  96. 466 printspc(11)"[144][193]ny other key will"
  97. 467 printspc(11)" end the program [146]"
  98. 468 getl$:ifl$=""then468
  99. 470 ifl$="r"thenrestore:goto50
  100. 475 ifl$=<>"f"then500
  101. 500 printspc(12)"[217]our list is now"
  102. 502 printspc(14)"[156] complete. ":gosub20000
  103. 505 printspc(10)"[156][194]e sure not to shop"
  104. 507 printspc(10)"on an empty stomach.":gosub20000
  105. 510 printspc(8)"[154] [200]ave fun at the market [146]":gosub20000
  106. 550 print#4,chr$(12): print#4: close4: poke 186,8: sys uptime
  107. 600 print"[147][144][196]o you need:":return
  108. 610 printspc(15)"[144]< y / n >"
  109. 615 printspc(10)" [208]ress [198]1  to exit ":return
  110. 997 :
  111. 998 rem *** grocery items ***
  112. 999 :
  113. 1000 dataapples,oranges,peaches,plums,pears,melon,pineapple,bananas,lemon,lime
  114. 1005 datagrapes,grapefruit,tangerines,raisins,avocado,cherries
  115. 1010 datastrawberries,blueberries,cranberries,raspberries
  116. 1020 datafresh beans,fresh peas,carrots,celery,cucumbers,lettuce,tomatoes
  117. 1022 datamushrooms, potatoes,green pepper,red pepper,sprouts,fresh corn
  118. 1024 dataonion,garlic,ginger,scallion,parsley,canned fruit
  119. 1026 datacanned string beans,canned wax beans,canned peas,canned carrots
  120. 1027 datacanned beets,mixed vegetables,canned corn,canned lima beans
  121. 1030 databaked beans,chili beans, sauerkraut,asparagus
  122. 1035 datastewed tomatoes,frozen peas, frozen beans,frozen corn
  123. 1042 databread,bagels,pie crust,english muffins,bread crumbs,dinner rolls
  124. 1043 datahamburger rolls,hot dog rolls
  125. 1045 datachocolate bars,chocolate syrup,nestle's quik,chocolate chips
  126. 1048 datasugar,brown sugar,sugar substitute
  127. 1050 dataflour,baking powder,baking soda,cake mix,vanilla,cookie mix,frosting
  128. 1052 datacake,pie,cookies,candy,breakfast cereal,hot cereal
  129. 1055 datapancakes,syrup,waffles,ice cream,whipped cream
  130. 1060 dataketchup,mayonnaise,mustard,bbq sauce,tartar sauce,salad dressing
  131. 1061 datapickles,relish
  132. 1065 dataeggs,butter,margarine,shortening,vegetable oil,olive oil
  133. 1070 datamilk,soda,iced tea,punch,lemonade,apple juice,orange juice,fruit juice
  134. 1075 datatomato juice,lemon juice,vegetable juice,cocktail mix
  135. 1078 datacoffee,cream,tea,hot cocoa,popcorn,potato chips,corn chips,dip,crackers
  136. 1080 datafrench fries,mashed potato mix,rice,onion rings,noodles,spaghetti,lasagna
  137. 1085 datapeanuts,walnuts,almonds,pecans,cashews,coconut,chestnuts
  138. 1090 datacream cheese,sour cream,cottage cheese,cheddar cheese,velveeta
  139. 1095 datajack cheese,mozzerella cheese,ricotta cheese,parmesan cheese
  140. 1100 dataamerican cheese,swiss cheese,canned tomatoes
  141. 1105 datatomato sauce,tomato paste,pizza sauce,pizza dough,pizza topping
  142. 1110 datapeanut butter,jelly,jam,marshmallows,dessert topping,pudding,jello
  143. 1115 dataapple sauce,cranberry sauce,pie filling
  144. 1120 databacon,ham,sausage,pepperoni,hot dogs,knockwurst
  145. 1121 datasoup,beef bouillon,chicken bouillon,tuna fish,canned lunch meat
  146. 1122 datasalami,bologna,corned beef,turkey roll,chicken roll,pastrami
  147. 1125 datasteak,hamburger,beef ribs,rib roast,pot roast,stew meat,oriental beef
  148. 1130 dataoriental pork,pork chops,pork roast,pork ribs,pork steak
  149. 1132 datalamb chops,lamb steak
  150. 1135 datafrying chicken,roasting chicken, baking chicken, chicken breasts
  151. 1137 datachicken legs, chicken thighs,oriental chicken,chicken liver
  152. 1140 dataturkey slices,turkey breast,turkey roast,stuffing
  153. 1142 dataveal,clams,shrimp,scallops,frozen seafood,lox,fish sticks
  154. 1143 datalobster,trout,salmon,swordfish,bass,fish filets,squid,butterfish
  155. 1145 dataturkey gravy, chicken gravy,beef gravy,mushroom gravy
  156. 1150 datacorn tortillas,flour tortillas,taco shells,chili powder,chiles
  157. 1155 datataco sauce,enchilada sauce,picante sauce,refried beans
  158. 1160 datasoy sauce,bean sprouts,oriental vegetables,oyster sauce,sesame oil
  159. 1165 datawater chestnuts,hot mustard,chow mein noodles,snow peas,bean sauce
  160. 1168 dataaluminum foil,plastic wrap,plastic bags,lge. trash bags,sm. trash bags
  161. 1170 datacharcoal,matches,paper plates,paper cups,plastic plates,ice
  162. 1175 dataplastic forks,plastic knives,plastic spoons, anise,allspice
  163. 1180 databasil,bay leaves,cl